home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g55.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  43 lines
  1. 100 ' G55 T.WAKAMATSU
  2. 110 C=7:RANDOMIZE TIME/4:PI=3.1416!:DIM X1(30),Y1(30):CLS
  3. 120 FOR Q=30 TO 420 STEP 30
  4. 130   FOR P=20 TO 620 STEP 45
  5. 140     I=0:E=P+INT(RND*19):F=Q+INT(RND*15)
  6. 150     FOR J=20 TO 380 STEP 60
  7. 160       T=J/180*PI:I=I+1
  8. 170       X0(I)=8*COS(T)+E
  9. 180       Y0(I)=5*SIN(T)+F
  10. 190     NEXT J
  11. 200     I=0
  12. 210     FOR J=30 TO 390 STEP 30
  13. 220       T=J/180*PI:I=I+1
  14. 230       X1(I)=22*COS(T)+E
  15. 240       Y1(I)=14*SIN(T)+F
  16. 250     NEXT J
  17. 260     IF Q=30*3  THEN C=7
  18. 270     IF Q=30*6  THEN C=6
  19. 280     IF Q=30*10 THEN C=6
  20. 290     FOR I=1 TO 6
  21. 300       J=I*2-1
  22. 310       CONNECT(X0(I),Y0(I))-(X1(J),Y1(J))-(X1(J+1),Y1(J+1))-(X0(I+1),Y0(I+1)),%C
  23. 320     NEXT I
  24. 330     CIRCLE(E-2,F+15)-(E-3,F+27)-(E,F+55),4
  25. 340     PAINT(E,F),%C,%C,%7
  26. 350   NEXT P
  27. 360 NEXT Q
  28. 370 DIM X(3074),A(3074)
  29. 380 FOR I=0 TO 1535:X(I)=I:NEXT I
  30. 390 FOR I=1536 TO 1 STEP -1
  31. 400   R=INT(RND*I)+1
  32. 410   A(I)=X(R)
  33. 420   X(R)=X(I)
  34. 430 NEXT I
  35. 440 FOR I=1 TO 1536
  36. 450   Y=A(I)\64:X=A(I) MOD 64
  37. 460   LINE(X*10,Y*20)-(X*10+10,Y*20+20),PSET,7,BF,%6
  38. 470 NEXT I
  39. 520 FOR I=1 TO 1536
  40. 530   Y=A(I)\64:X=A(I) MOD 64
  41. 540   LINE(X*10,Y*20)-(X*10+10,Y*20+20),PSET,0,BF
  42. 550 NEXT I
  43.